home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / multpoly.sha < prev    next >
Text File  |  1994-03-01  |  486b  |  8 lines
  1. 10 REM PRODUIT DE 2 POLYNOMES
  2. 20 REM DISTRIBUE PAR W-TEL
  3. 30 REM (16) 62 93 74 05  24h/24
  4. 40 REM Serveur dedie aux CASIO
  5. 50 REM Banque de donnees ouverte a tous.
  6. 60 CLEAR :DIM A(10),B(10),C(10):INPUT "DEG P(x):",N:FOR I=N TO 0 STEP -1:PRINT "P^"I;:INPUT A(I):NEXT I:INPUT "DEG Q(x):",M:FOR I=M TO 0 STEP -1:PRINT "Q^"I;:INPUT B(I):NEXT I:FOR L=0 TO M+N:X=(L+N-ABS(L-N))/2:FOR I=0 TO X:J=L-I:C(L)=C(L)+A(I)*B(J)
  7. 70 NEXT I:NEXT L:FOR L=M+N TO 0 STEP-1:PRINT "C^"L"="C(L):NEXT L:END
  8.